0 SYS2832
4 POKE53280,0:PRINTCHR$(147)
5 SYS52480,PEEK(186),"ANGYAL.DAT",1
15 POKE56579,255
16 POKE56577,255
40 READA,B,V
50 IFV=255THENRESTORE
60 C=A/0.05966:F=INT(C/256)
70 POKE54273,F:POKE54272,C-256*F
90 POKE54277,136:POKE54278,86
110 POKE54296,15
120 POKE54276,33
125 POKE56577,V
130 FORI=1TOB:NEXT
140 POKE54276,32
150 GOTO40
500 DATA528,500,254,528,250,253,495,250,252,528,500,251,396,600,250
510 DATA660,500,249,660,250,248,594,250,248,660,500,249,528,500,250
520 DATA660,500,251,880,500,252,792,1000,253,0,250,254
530 DATA660,500,251,880,500,252,792,1000,253,0,250,254
540 DATA792,500,253,792,250,252,880,250,251,792,500,250,660,500,249
550 DATA704,500,248,704,250,249,792,250,251,704,500,252,594,500,253
560 DATA660,500,254,594,500,253,528,1000,252,0,250,251
570 DATA660,500,254,594,500,253,528,1000,252,0,250,255